home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
gstest1.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
451b
|
21 lines
5 screen 0,5
6 n% = 60
10 for i% = 0 to n%\4
20 pena (i% mod 28)+3
25 j% = i%*2
30 box(j%,j%;n%-j%,n%-j%),1
40 next
50 dim a%(1000)
60 sshape(0,0;n%,n%),a%()
70 for i% = 0 to 4
80 for j% = 0 to 2
90 gshape(i%*n%,j%*n%),a%()
100 next : next
190 ask rgb 3, r%,g%,b%
200 for i% = 31 to 3 step -1
210 ask rgb i%, r1%,g1%,b1%
220 rgb i% ,r%,g%,b%
230 r%=r1% : b% = b1% : g% = g1%
240 next
250 goto 190